;:sys36864 *= $c000 ;.opt oo jsr $b7f1 jsr $ffc9 jsr $aefd jsr $ad9e jsr $b6a3 tax bne l2 jmp $b248 l2 sta 3 l1 dec 3 ldy 3 bpl l3 jmp $ffcc l3 lda #27 jsr $ffd2 lda #"*" jsr $ffd2 lda #39 jsr $ffd2 lda #18 jsr $ffd2 lda #0 jsr $ffd2 lda (34),y cmp #32 bne l4 ldx #54 lda #0 l5 jsr $ffd2 dex bne l5 beq l1 l4 sec sbc #48 cmp #13 bcc l6 jmp $b248 l6 asl tax lda cotab,x sta 4 lda cotab+1,x sta 5 ldy #8 lda #0 l7 jsr $ffd2 dey bpl l7 ldy #36 ldx #13 l8 lda (4),y jsr $ffd2 iny lda (4),y jsr $ffd2 iny lda (4),y jsr $ffd2 dey dey dey dey dey dex bne l8 lda #0 ldy #5 l9 jsr $ffd2 dey bpl l9 jmp l1 cotab .word m0,m1,m2,m3,m4,m5,m6,m7,m8,m9,ma,mb,mc m0 =* .byt %00,%11111111,%11111100 .byt %11,%11111111,%11111111 .byt %11,%00000000,%00000011 .byt %11,%00000000,%00000011 .byt %11,%00000000,%00000011 .byt %11,%00000000,%00000011 .byt %11,%00000000,%00000011 .byt %11,%00000000,%00000011 .byt %11,%00000000,%00000011 .byt %11,%00000000,%00000011 .byt %11,%11111111,%11111111 .byt %00,%11111111,%11111100 .byt %00,%00000000,%00000000 ; m1 =* .byt %11,%00000000,%00000011 .byt %11,%00000000,%00000011 .byt %11,%00000000,%00000011 .byt %11,%00000000,%00000011 .byt %11,%00000000,%00000011 .byt %11,%11111111,%11111111 .byt %11,%11111111,%11111111 .byt %11,%00000000,%00000000 .byt %11,%00000000,%00000000 .byt %11,%00000000,%00000000 .byt %11,%00000000,%00000000 .byt %11,%11111100,%00000000 .byt %11,%11111100,%00000000 ; m2 =* .byt %11,%11111110,%00000011 .byt %11,%11111111,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%11111111 .byt %11,%00000001,%11111111 ; m3 =* .byt %11,%00000000,%00000011 .byt %11,%00000000,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%11111111,%11111111 .byt %11,%11111111,%11111111 ; m4 =* .byt %00,%00000000,%00000000 .byt %00,%00000011,%11111111 .byt %00,%00001111,%11111111 .byt %00,%00001100,%00000000 .byt %00,%00001100,%00000000 .byt %00,%00001100,%00000000 .byt %00,%00001100,%00000000 .byt %00,%00001100,%00000000 .byt %00,%00001100,%00000000 .byt %00,%00001100,%00000000 .byt %11,%11111111,%11111100 .byt %11,%11111111,%11111100 .byt %00,%00001100,%00000000 ; m5 =* .byt %01,%10000000,%00000000 .byt %11,%10000000,%00000000 .byt %11,%00000011,%11111111 .byt %11,%00000011,%11111111 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%11111111,%00000011 .byt %00,%11111111,%00000011 ; m6 =* .byt %11,%11111111,%11111100 .byt %11,%11111111,%11111111 .byt %11,%00001100,%00000011 .byt %11,%00001100,%00000000 .byt %11,%00001100,%00000000 .byt %11,%00001100,%00000000 .byt %11,%00001100,%00000000 .byt %11,%00001100,%00000000 .byt %11,%00001100,%00000000 .byt %11,%00001100,%00000000 .byt %11,%00001100,%00000000 .byt %11,%11111100,%00000000 .byt %11,%11111100,%00000000 ; m7 =* .byt %00,%00000000,%00000111 .byt %00,%00000000,%00000111 .byt %00,%00000000,%00000011 .byt %00,%00000000,%00000011 .byt %00,%00000000,%00000011 .byt %00,%00000000,%00000011 .byt %11,%11111100,%00000011 .byt %11,%11111110,%00000011 .byt %00,%00000011,%00000011 .byt %00,%00000011,%00000011 .byt %00,%00000011,%00000011 .byt %00,%00000001,%11111111 .byt %00,%00000000,%11111111 ; m8 =* .byt %00,%11111100,%00000000 .byt %11,%11111111,%00000000 .byt %11,%00000011,%00000000 .byt %11,%00000011,%11111111 .byt %11,%00000011,%11111111 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%00000011 .byt %11,%00000011,%11111111 .byt %11,%00000011,%11111111 .byt %11,%00000011,%00000000 .byt %11,%11111111,%00000000 .byt %00,%11111100,%00000000 ; m9 =* .byt %00,%00000000,%11111111 .byt %00,%00000000,%11111111 .byt %00,%00000000,%11000011 .byt %00,%00000000,%11000011 .byt %00,%00000000,%11000011 .byt %00,%00000000,%11000011 .byt %00,%00000000,%11000011 .byt %00,%00000000,%11000011 .byt %00,%00000000,%11000011 .byt %00,%00000000,%11000011 .byt %11,%00000000,%11000011 .byt %11,%11111111,%11111111 .byt %00,%11111111,%11111111 ; ma =* .byt %00,%00000000,%00000000 .byt %11,%11111100,%00000000 .byt %11,%11111100,%00000000 .byt %11,%00000000,%00000000 .byt %11,%00000000,%00000000 .byt %11,%00000000,%00000000 .byt %11,%11111111,%11111111 .byt %11,%11111111,%11111111 .byt %00,%00000000,%00000011 .byt %00,%00000000,%00000011 .byt %00,%00000000,%00000011 .byt %00,%00000000,%11111111 .byt %00,%00000000,%11111111 ; mb =* .byt %00,%00000011,%11111111 .byt %00,%00000011,%11111111 .byt %00,%00000011,%00000000 .byt %00,%00000011,%00000000 .byt %00,%00000011,%00000000 .byt %00,%00000011,%00000000 .byt %11,%11111111,%00000000 .byt %11,%11111111,%00000000 .byt %00,%00000011,%00000000 .byt %00,%00000011,%00000000 .byt %00,%00000011,%00000000 .byt %00,%00000011,%11111111 .byt %00,%00000011,%11111111 ; mc =* .byt %11,%11111111,%00000000 .byt %11,%11111111,%00000000 .byt %00,%00000011,%00000000 .byt %00,%00000011,%00000000 .byt %00,%00000011,%00000000 .byt %00,%00000011,%00000000 .byt %00,%00000011,%00000000 .byt %00,%00000011,%00000000 .byt %00,%00000011,%00000000 .byt %00,%00000011,%00000000 .byt %00,%00000011,%00000000 .byt %11,%11111111,%11111111 .byt %11,%11111111,%11111111